with System;
with Interfaces, Interfaces.C;
with Ada.Containers; use Ada.Containers;
with Ada.Strings.Hash;
with Ada.Containers.Indefinite_Hashed_Maps;
with FT2.Base, FT2.Types; use FT2.Base, FT2.Types;
package Freetype2 is

   Freetype_Error : exception;

   procedure Free(F : FT_Face);

   package Font_Table is
      new Indefinite_Hashed_Maps(
         String, 
         FT_Face,
         Ada.Strings.Hash,
         "=");

   Error   : FT_Error;
   Library : FT_Library;
   Fonts   : Font_Table.Map;

   procedure Init;

   function Get_Font (Family : String) return FT_Face;

   procedure Done;

end Freetype2;
